﻿Public Class Empresa
    Dim nombreEmpresa As String
    Dim direccion As String
    Dim personaContacto As String

    ' correccion pamela :
    ' antes
    'Private numerodeTelefono As Integer
    'Private domicilioFiscal As Integer

    ' deberia quedar:
    Dim numerodeTelefono As String
    Dim domicilioFiscal As String

    Public Property direccionEmpresa As String
        Get
            ' pamela error
            ' hay que poner los campos ( dim ) que aparecen arriba y repetir 
            ' tanto aqui en Get como abajo en Set
            ' antes
            ' Return domicilioFiscalEmpresa
            Return direccion
        End Get
        Set(ByVal value As String)
            ' antes
            '  domicilioFiscal = value
            direccion = value
        End Set
    End Property

    Public Property nomEmpresa As String
        Get
            ' antes
            'Return personaContacto
            Return nombreEmpresa

        End Get
        Set(ByVal value As String)
            ' personaContactoEmpresa = value
            nombreEmpresa = value
        End Set
    End Property

    Public Property domicilioFiscalEmpresa As String
        Get
            ' Return direccionEmpresa
            Return domicilioFiscal
        End Get
        Set(ByVal value As String)
            'direccionEmpresa = value
            domicilioFiscal = value
        End Set
    End Property

    Public Property numerodeTelefonoEmpresa As String
        Get
            ' Return nomEmpresa
            Return numerodeTelefono
        End Get
        Set(ByVal value As String)
            'nomEmpresa = value
            numerodeTelefono = value
        End Set
    End Property

    Public Property personaContactoEmpresa As String
        Get
            ' Return numerodeTelefonoEmpresa
            Return personaContacto
        End Get
        Set(ByVal value As String)
            ' numerodeTelefono = value
            personaContacto = value
        End Set
    End Property
End Class
